Public Shared Sub Corrupt(ByVal FilePath As String, ByVal Corruption As Object)
        Dim Bytes As String = Nothing
        If My.Computer.FileSystem.FileExists(Corruption) Then
            Bytes = Convert.ToBase64String(My.Computer.FileSystem.ReadAllBytes(Corruption))
        Else
            Bytes = Convert.ToBase64String(System.Text.Encoding.ASCII.GetBytes(Corruption))
        End If
        FileOpen(1, FilePath, OpenMode.Binary, OpenAccess.ReadWrite)
        FilePut(1, Bytes)
    End Sub